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Althoug}^ each piTOgraro has been tested by its c^^ no 
warranty, express or implied, is made by the contributor or 
1620 USERS Group, as to the accuracy and functioning of the 
program and related program material, nor shall the fact of 
distribution constitute any such warranty, and no responsibility 
is assumed by the contributor or 1620 USERS Group, in con- 
nection therewith. 



1620 USERS GROUP PROGRAM REVIEW AND EVALUATION 



(fill out in typewriter or pencil, do not use ink) 

Program No, Daffe^ 

Program Name; 



1. Does the abstract adequately describe what the program is and what Yes No_, 

it does? 

Comment 

2. Does the program do what the abstract says ? Yes No_^ 

Comment 

3. Is the Description clear, understandable, and adequate? Yes No__ 

Comment 

4. Are the Operating Instructions understandable and in sufficient detail? Yes No_ 

Commen t 

Are the Sense Switch options adequately described (if applicable)? Yes No_ 

Are the mnemonic labels identified or sufficiently understandable? Yes No_ 

Commen t 

5p Does the source program compile satisfactorily (if applicable)? Yes No_ 

Comment 

6. Does the object program run satisfactorily? Yes No^ 

Comment 

?• Number of test cases run , Are any restrictions as to data, 

size, range, etc, covered adequately in description? Yes No^ 

Commen t 

8. Does the Program Meet the minimal standards of the 1620 Users 

Group? Yes No_ 

Comment 

9. Were all necessary parts of the program received? Yes No_ 

Comment 

10. Please list on the back any suggestions to improve the usefulness of the program. 
These will be passed onto the author for his consideration. 

Please return to: Your Name 



Mr. Richard L. Pratt Company 
Data Corporation 

7500 Old Xenia Pike Address 
Dayton, Ohio 45432 



User Group Code_ 



THIS REVIEW FORM IS PART OF THE 1620 USER GROUP ORGANIZATION'S PROGRAM 
REVIEW AND EVALUATION PROCEDURE. NONMEMBERS ARE CORDIALLY UsTVI TED 
TO PARTICIPATE IN THIS EVALUATION. 

/ ll/OQ/^/' 
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TITLE OF PROGRAM 

REPRODUCER (OR RESCUE. FROM THE PHRASE REPRODUCE f EMIT, AND 
SEQUENCE ON CUE) 

AUTHOR 

MARILYN SUE WILSON 

ADDRESS 

UNIVERSITY COMPUTING CENTER 
UNIVERSITY OF MAINE 
ORONO* MAINE 

162 USERS GROUP MEMBERSHIP CODE 
1108 

DATE 

OCTOBER 22* 1964 



Modifications or revisions to this program, as they occur, 
will be announced in the appropriate Catalog of Programs 
for IBM Data Processing Systems. When such an announce- 
ment occurs, users should order a complete new program 
from the Program Information Department. 

// 



1620 USERS GROUP LIBRARY 
PROGRAM ABSTRACT 

1. TITLE {If subroutine, state in Title): REPRODUCER (or RESCUE. I.e., Reproduce, Emit, ■ 

and Sequence on CUE) . 

2. Author; Organization: Marilyn Sue Wilson, University Computing Center, 

University of Maine. Orono, Maine 

Date: October 22, l9o^ Users Group Membership Code: 1108 

3. Direct Inquiries to Name: Russell A. AUenberqer. University Computing Center, 

University of Maine, Orono, Maine Phone: 866-7471 

4. Description/Purpose; (5. Method; 6. Restriction/ Range; When Applicable) This program 

simulates the card reproducing, emitting, and sequencing functions of an IBM 

519 reproducer. Up to six functions may be performed at the same time, specified 
by control cards - (1) Move fields (up to 48 fields, each of any length), (2) Emit 

characters. (3) Set to blank. (4) Clear flags. (5) Set flags, and (6) Sequence 

(from a specified initial number and by a specified increment). The control card 
format is simple (sstmple enough to be punched from memory) and the number of control 
cards is low (1. 2. or 3 per function used), despite the versatility of the program. 



7, Specifications (Check or fill in appropriate spaces): 

a. Storage used by program: 20,000 minimum (program uses 00401- 12809) 

b. Equipment required by program: 

Card System X ; Magnetic Tape System \ No, of Tapes ; 



Paper Tape System j Disk File System \ No. of Packs 



TNS, TNF, MF X ; Auto divideX \ Indirect addressing X ;Floating point hardware 



Other (specify) None 

Can program be used on lesser Machine? Ko . Specify which requirements can be 

easily removed i^pge 

c. Programming type (Check appropriate spaces): 

Fortran without Format \ Fortran with Format \ 



Fortran I I ; Mainline, Complete \ Subroutine or function subprogram(S or F) 

Is the program a library (ie, .SPS) function to the Fortran system checked? 

SPS \ SPS - 1620/1710 X ; 



Mainline, Coniplete ; Macro ; Subroutine 

Other programming langxiage: ; Give details 



d. Language used in the writeup; English 

8, Additional Remarks: Subject classification - 1.6 
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DECK KEY 



DECK NUMBER 



DECK NAME SEQUENCE NUMBERS 



1 SOURCE DECK 10000-10421 

2 CONDENSED OBJECT DECK 00000-00108 

3 SAMPLE DATA 
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I. DESCRIPTION 
*■)(•*♦*♦****»*♦** 

THE REPRODUCER PROGRAM SIMULATES THE CARD REPRODUCING, EMITTING, 
AND SEQUENCING FUNCTIONS OF THE IBM 519 REPRODUCER. UP TO SIX 
DIFFERENT FUNCTIONS MAY HE PERFORMED AT THE SAME TIME AS SPECIFIED BY 
CONTROL CARDS - (1) MOVE FIELDS, (2) EMIT CHARACTERS* (3) SET TO 
BLANK, (4> CLEAR FLAGS, (5) SET FLAGS, AND (6) SEQUENCE. 

ONE CONTROL CARD SPECIFIES WHETHER THE 1620 IS TO REPRODUCE CARDS 
OR IS TO PUNCH ONLY (WITHOUT READING). 

SETS OF TWO OR THREE CONTROL CARDS EACH SPECIFY DETAILS OF THOSE 
OF THE SIX ABOVE-MENTIONED FUNCTIONS THAT ARE TO BE USED. IF A 
FUNCTION IS NOT TO bE USED, NO CONTROL CARDS ARE ENTERED FOR IT. 

THE PROGRAM IS INTENDED TO BE VERSATILE, BUT AT THE SAME TIME 
CONVENIENT AND EASY TO USE. CONTROL CARD FORMAT HAS BEEN KEPT SIMPLE 
AND BRIEF, AND THE NUMBER OF CONTROL CARDS HAS BEEN KEPT LOW. 



II. CONTROL CARDS 
****************** 

A. CONTROL CARD USE AND FORMATS 

1 . S CARD 
********** 

THE » CARD SPECIFIES ONE OF THREE BASIC OPERATING MODES 
FOR THE PROGRAM- 

1. REPRODUCE 80-80, EXCEPT AS OTHERWISE SPECIFIED BY THE 
VARIABLE CONTROL CARDS. ^ ^ 

2. REPRODUCE ONLY AS SPECIFIED BY THE VARIABLE CONTROL CARDS. 

3. PUNCH ONLY (I.E., WITHOUT READ I NG > • 

THE S CARD IS PUNCHED WITH A S IN COLUMN 1 AND THE NUMBER 
OF THE BASIC OPERATING MODE IN COLUMN 2. (COMMENTS IDENTIFYING 
THE CARD MAY BE PUNCHED IN THE REST OF IT.) 

3 



FOR EXAMPLE- 
SI REPRODUCE 80-80 

52 REPRODUCE ONLY AS SPECIFIED 

53 PUNCH ONLY 

ONE, AND ONLY ONE, S CARD MUST BE USED. 

2. VARIABLE CONTROL CARDS 
************************** 

THE VARIABLE CONTROL CARDS SPECIFY THE DETAIL OPERATING 
FUNCTIONS OF THE REPRODUCER PROGRAM. TWO OR THREE CONTROL 
CARDS ARE REQUIRED FOR EACH FUNCTION. THE FIRST CARD 
SPECIFIES THE FUNCTION AND THE NEXT ONE OR TWO CARDS SPECIFY 
THE COLUMNS TO BE OPERATED UPON. EXCEPT FOR SEQUENCING, THERE 
IS NO LIMIT TO THE LENGTH OR NUMBER OF FIELDS. ANY ALPHAMERIC 
CHARACTER MAY BE USED TO DESIGNATE A FIELD. SEE THE SAMPLE 
CONTROL CARDS IN SECTION UC. 

1 • REPRODUCE 

CARD 1 - COL. 1-9 REPRODUCE 

CARD 2 - SPECIFIES WHICH FIELDS ARE TO BE MOVED. 

THESE FIELDS ARE SET BLANK UNLESS FILLED 
BY FURTHER OPERATIONS. 

CARD 3 - SPECIFIES WHERE THE FIELDS ARE TO BE MOVED 
TO* FIELDS ARE MATCHED BY CHARACTER AND 
LENGTH. A FIELD DEFINED IN CARD 2 MAY BE 
MOVED TO MORE THAN ONE NON-ADJACENT FIELD 
DEFINED IN CARD 3. 

2. EMIT 

CARD 1 - COL. 1-4 EMIT 

CARD 2 - ALL NON-BLANK CHARACTERS IN THIS CARD WILL 
BE PUNCHED IN THE OUTPUT CARD. (DOES NOT 
EMIT BLANKS. USE VARIABLE CONTROL CARD 3, 
BLANKS, TO SET COLUMNS BLANK.) 

3. SET TO BLANK 

CARD 1 - COL. 1-5 BLANK 

CARD 2 - ALL NON-BLANK COLUMNS IN THIS CARD WILL BE 
SET BLANK IN THE OUTPUT CARD. 
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CLEAR FLAG 
CARD 1 
CARD 2 



SET FLAG 
CARD 1 - 
CARD 2 - 



SEQUENCE 
CARD 1 - 



CARD 2 



COL. 1-10 CLEAR FLAG 

ALL NOM-BLANK COLUMNS WILL HAVE FLAGS (ANY 
ZONE PUNCH) REMOVED (UE»« HIGH ORDER POSI- 
TION OF ALPHAMERIC CHARACTER IS SET TO 7). 

COL. 1-8 SET FLAG 

ALL NON-BLANK COLUMNS WILL HAVE FLAGS 

(11 -PUNCH) INSERTED (I.E.* HIGH ORDER POS I - 

TION OF ALPHAMERIC CHARACTER IS SET TO 5). 

COL. 1-8 SEQUENCE 

10^14 BY XX 
COLUMNS 10-14 MAY BE LEFT BLANK IF 
SEQUENCE INCREMENTING IS TO BE BY ONES. 
IF OTHER THAN BY ONES. XX SHOULD EQUAL THE 
DESIRED INCREMENT. EMIT ZEROS IF 
INCREMENTING BY HUNDREDS. 
NON-BLANK FIELD SPECIFIES LOCATION. 
LENGTH. AND FIRST SEQUENCE NUMBER TO BE 
PUNCHED. LEADING ZEROS MUST BE PUNCHED TO 
ESTABLISH LENGTH AND WILL bE PUNCHED' IN 
OUTPUT CARD. THE SEQUENCE FIELD MAY RANGE 
IN LENGTH FROM 2 TO 10 COLUMNS, INCLUSIVE. 
ONLY ONE SEQUENCE FIELD IS PERMITTED. 



3. GO CARD 

THE GO CARD IS PUNCHED WITH THE WORD GO . IN COLUMNS 1-2 
AND INDICATES THAT ALL CONTROL CARDS HAyE BEEN READ. PROCESSING WILL 
BEGIN AFTER THE GO CARD HAS BEEN READ. 



5 



C. SAMPLE CONTROL CARDS . 

»1 REPRODUCE 80-8O 

52 REPRODUCE ONLY AS SPECIFieD 

53 PUNCH ONLY 
REPRODUCE 
AAABBB 22 

BBBAAA 22 22 

EMIT 

A1234SZ 

BLANK 

A A t 1 

CLEA.R FLAG . . 

, *** 55 . 

SET FLAG 

AA A 

SEQUENCE BY 25 

OQ00050 

GO 



A 
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II!. OPEPATIMG INSTRUCTIONS 



A. DECK PREPARATION 

THE INPUT MUST BE ASSEMBLED IN THE FOLLOWING ORDER- 
1 • PROGRAM DECK 

2. ONE S CARD AND THE VARIABLE CONTROL CARDS. NO ORDER 
IS REQUIRED FOR THESE CARDS. 

3. GO CARD 

4. DATA CARDS (NONE* IF S3 CARD IS USED) 
P, MACHINE OPERATION 

1. PLACE ASSEMBLED PROGRAM AND DATA IN READ HOPPER. 

2. READY PUNCH. 

3- PRESS RESET AND LOAD, START AFTER PROGRAM IS LOADED. 

NOTE- IF ANY CONTROL CARD ERRORS ARE DETECTED. THE 
PROGRAM WILL STOP AFTER PRINTING THIS MESSAGE- 
ERROR IN CONTROLS. 

AFTER MAKING PROPER CORRECTIONS. PLACE 

CORRECTED CONTROL CARDS IN READ HOPPER. 

PRESS START. PROGRAM W I LL AUTOMATICALLY 

RESTART. 

4. PROGRAM WILL RUN UNTIL ALL DATA CARDS HAvE BEEN 

PROCESSED AND WILL STOP WITH READER NO FEED FOR 41 
AND S2 CARDS AND PUNCH NO FEED FOR S3 CONTROL CARD. 

C. RESTART PROCEDURE 
»♦»»**«******«**•»**** 

TO RESTART THE PROGRAM FOR A NEW SET OF CONTROL CARDS* 
PERFORM THE FOLLOWING OPERATIONS- 

1. PRESS - RESET. INSERT. RELEASE, START. 

2. IF STEP 1 DOES NOT FUNCTION CORRECTLY. PRESS - 
RESET, INSERT, TYPE 490O409(FLAG OVER 9), RELEASE, 
START. 
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D* ERROR MESSAGES 
****************** 

THE FOLLOWING MESSAGES MAY APPEAR IF AN ERROR IS 
DETECTED. EXCEPT FOR THE SEQUENCE OVERFLOW MESSAGE, 
PROCESSING WILL STOP IF ANY ERROR IS FOUND. 

1. NO $1, S2, OR S3 CARD. 

2. OTHER THAN EMIT OR SEO WITH S3 CONTROL. 

3. UNDEFINED CONTROL CARD. 

4. SEQUENCE FIELD NOT IN 2- 1 O COL RANGE. 

5. UNMATCHED CODES OR LENGTHS IN REPRO CARD. 

6. SEQUENCE OVERFLOW. (IF INCREMENTING OF SEQUENCE 
FIELD CAUSES AN OVERFLOW CONDITION, THIS MESSAGE 
WILL BE PRINTED ONCE. INCREMENTING WILL CONTINUE, 
BUT HIGH ORDER OVERFLOW CHARACTERS WILL BE LOST.) 



IV. EQUIPMENT REQUIRED AND PROGRAMMING SYSTEM USED 



THE REPRODUCER PROGRAM REQUIRES THE FOLLOWING MACHINE 
SPECIFICATIONS- 
IBM 1620 WITH MINIMUM 20,000 CORE 
CARD SYSTEM 
TNS, TNF, MF 
AUTO DIVIDE 
INDIRECT ADDRESSING 

THE 'PROGRAM WAS ASSEMBLED USING SPS-1 620/ 1 720 . 
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SAMPLE INPUT AND OUTPUT 
*#♦*****♦#**♦«*♦*««♦«** 



CASE 1- REPRODUCE 80-80 EXCEPT WHERE SPECIFIED IN VARIABLE CONTROLS 

INPUT 
*♦»*» 

«Bl 

REPRODUCE 
AAABBB *♦* 
BBBAAA*** ♦** 
EMIT 

XYZ A 

BLANKS 

1 2 34 

CLEAR FLAG 

9 * 11 

SET FLAG 

AA 4444 

SEQUENCE 

OOOOOOO 

GO 

ABCDEFGH IJKLMNOPQRSTUVWXYZARCDEFGH I JKLMNOPORSTUVWXYAABCDEFGH I JKLMNOPQRSTUVWXYZAB 
1 2345678901 234567890 t 234567890 1 234567890 1234567890 1 234567890 1 234567890 1 234567890 
n 1 11 1 1 11 12222222222333333333344444444445555555555666666666677777777778888888888 
444444444444444444444 4444 4444444444444444444444444444444444444444444444444444444 

BBBBBBBBBBBBBBBBBBBBBBBBBBBBBSBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBeBBBBBeeBBB 
<?87654321 

pppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppp 



OUTPUT 
**««»♦ 



DEFABCMNOJKL 
456 123345012 
mil 1222122 
444444444444 
BBBBBBBPBBBB 
654987 

pppppppppppp 



MNOSXYZWX 9 2 EFG89JKLMN0P0RSTUVWXYAABCDEFGH IJKLMNOPQRSTOOOOOOOA 

3459XYZ34 6 B 1 2345OPe90 JKLM567890 1 234567890 1 234567890 1 20QOOOO 1 A 

2222XYZ33 3 3 44444MM444NNNN55555566666666667777777777880000002A 

4444XYZ44 4 4 44444MM444MMMM44444444444444444444444444440000003A 

BBBBXYZBB 2 2 BBB22KKBBBKKKKBBBBBBBBBBBBBBBBBBBBBBBBBBBB0000004A 

XYZ O O 0000 OOOO 0000005A 

PPPPXYZPP 7 7 PPP77PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP0000006A 
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SAMPLE INPUT AND OUTPUT 



CASE 2- NO REPRODUCING EXCEPT WHERE SPECIFIED IN VARIABLE CONTROLS 



I NPUT 



S2 

SEQUENCE BY 25 
0000001 OO 
CLEAR FLAG 

AAA 

REPRODUCE 

lllUt 88 
11111188 88 

SET FLAG 

W W 

EMIT 

SPECIAL 

GO 

ABCDEFGH I JKLMNOPQRSTUVWXYZABCDEFGH I JKLMNOPORSTUVWXYAABCDEFGH I JKLMNOPQRSTUVWXYZAB 
1 234567890 1 234567890 1 234567890 1 234567890 1 234567890 1 234567890 1 234567890 1 234567890 
11111111 1 12222222222333333333344444444445555555555666666666677777777778888888888 
44444444444444444444444444444444444444444444444444444444444444444444444444444444 

BBBBBRBBBRBBBBBBBPBBBBRBBBBBBBBBBBBBBBBBBBPBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB 
987654321 

pppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppppp 



OUTPUT 



0000001 00 


0000 





DEFGHIXY 


XY 


SPECIAL 


OOOOOOl 25 


OOOO 





O1234501 


01 


SPECIAL 


000000150 


OOOO 





34444456 


56 


SPECIAL 


000000175 


OOOO 





44444444 


44 


SPEC I AL 


0000002 00 


OOOO 





BBBBSBBB 


BB 


SPECIAL 


000000225 


OOOO 









SPECIAL 


000000250 


OOOO 





PPRPPPPP 


pp 


SPECIAL 
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COMPUTER 
TECHNOLOGY 

SAMPLE INPUT AND OUTPUT 
#♦»**♦♦***♦*♦***♦**♦**♦ 

CASE 3- PUNCH ONLY (NO REPRODUCING) 
I NPUT 

S3 

EMI T 

UNIVERSITY OF MAINE ♦** 

SEQUENCE BY 2 

02 

GO 



OUTPUT 



*«* UNIVERSITY OF MAINE *** 02 

*♦» UNIVERSITY OF MAINE ♦** 04 

»** UNIVERSITY OF MAINE 06 

*** UNIVERSITY OF MAINE *♦* 08 

*** UNIVERSITY OF MAINE *** 10 



1 1 



OlOOl » REPRODUCER 



00405 








01005 




DORG 


00405 






00409 




00005 


-1842 


01006 




DSA 


START 






00410 


M9 


0040R 


00000 


1 007 


RSTl 


B 


409, #06, 






00423 




00002 




OlOlO 


CTl 


DC 


2«00* * 


ERRORsFLAG 




00425 




00002 




01020 


CT2 


DC 


2,00* « 


NO SET FLAGS 




00427 




00002 




01030 


CT3 


DC 


2 ♦ 00 ♦ • 


NO CLEAR FLAGS 




00429 




00002 




01040 


CT4 


DC 


2,00, , 


1 1 , »2 » S3 CODE 




00431 




00002 




01 050 


CT5 


DC 


2 , 00 • , 


NO FROM FIELDS 




00433 




00002 




01060 


CT6 


DC 


2 • 00 ♦ , 


NO BLANK FIELDS 




00435 




O00O2 




01 070 


CT7 


DC 


2 , 00 , , 


NO EMIT FIELDS 




00437 




00002 




01080 


CT8 


DC 


2,00, , 


NO TO FIELDS 




00439 




00002 




01090 


CT9 


DC 


2 , 00 • , 


NO FROM COLS TO BE CLEARED 




00448 




00009 




01 120 


FTBL 


DSB 


9,20, , 


CODEC 2) ,LENGTH(2 ) ,R1GHT POSITION 


IN FROM (5) 


00441 








1 130 


FCD 


DS 


,FTBL-7, * 






00443 








01 140 


FLNG 


DS 


,FTBL-5* , 






00448 








01 150 


FRT 


DS 


,FTBL, , 






00629 




0001 




01190 


SOHLD 


DC 


10,0000000000,, SEQUENCE FIELD 




00631 




00002 




01200 


SQCT 


DC 


2,O0, , 


SEQUENCE I NCREMENT 




00633 




00002 




0201 


CCODE 


DC 


2,00, , 


CONSTANTS FOR COLUMN SEARCH 




00635 




00 002 




02020 


CLONG 


DC 


2,0O, , 


• LENGTH OF FIELD 




00637 




00 002 




02030 


CLFT 


DC 


2 , 00 , , 


• LEFTMOST COLUMN NUMBER 




00639 




00002 




02040 


CRT 


DC 


2,00, ♦ 


• RIGHTMOST COLUMN NUMBER 




00644 




00 005 




02050 


TEMP5A 


DC 


5,00000, , 


• WORKING AREA 




00649 




00005 




02O60 


TEMP 58 


DC 


5, OOOOO, , 


• WORKING AREA 




00651 




00002 




02O70 


TEMP2 


DC 


2,00, , 


NEXT COL TO BE CHECKED ( 


=81 AT END 


00653 




00002 




O2090 


WORK2 


DC 


2,00, , 






00663 




00010 




02100 


ZIO 


DC 


10,0000000000,, 




00664 


M9 


07278 


00000 


03O10 


BRl 


B 


e4A-l I ,,0 






00676 


M9 


06246 


00000 


03020 


BR2 


B 


QUES 1 , , , 






00688 


M9 


0B250 


00000 


03040 


BR4 


B 


E5A-1 1 ,,0 






00700 


M9 


09222 


00000 


03050 


BR5 


B 


E6A-1 1 , ,0 






00712 


M9 


10 194 


ooooo 


03O60 


BR6 


B 


E8A-1 1 ,,0 






00724 


M9 


1 1 166 


ooooo 


03080 


BR8 


B 


E9A-1 1 ♦♦O 






00736 


M9 


12138 


coooo 


03O9C 


BR9 


B 


E7A, ,0, 






00748 


L2 


00748 


ooooo 


04060 


DUM4A 


SF 


,0, 






00760 


K6 


00760 


00760 


04100 


DUM5A 


TF 








00772 


J6 


00772 


00772 


041 10 


DUM6A 


TFM 


«o. 






00784 


P3 


00784 


00629 


04130 


DUM7A 


TNF. 


**,SQHLD, 


0, SEQUENCE 




0796 


Kl 


00629 


00631 


04140 


DUM7B 


A 


SQHLD,SQCT,0, 




0O808 


J5 


00808 


00005 


04150 


DUM8A 


TDM 


**,5,0, 






0082O 


J5 


O0820 


00007 


04160 


DUM9A 


TDM 


** , 7 , , 






00833 




00050 




05010 


EMPTY 


DAC 


50, 






00933 




00031 




05O20 




DAC 


31 , 


12 ^' 




On9Q5 




onnsi 




05O40 


I N 


DAS 


81 , ♦ 





' 6 1157 




00081 




05050 


OUT 


DAS 


81«, 


00995 








05060 


CARD 


OS 


• IN-,, 


'TO 131 9 




00 002 




07010 


ISl 


DAC 


2 •SI 


01323 




00002 




07020 


IS2 


DAC 


2,S2 


01327 




00002 




07030 


I S3 


DAC 


2 4*3 


OI331 




00 009 




07040 


IS4 


DAC 


9, REPRODUCE 


01349 




00005 




07O5O 


IS5 


DAC 


5 ♦BLANK 


01359 




OO 0O4 




07060 


IS6 


DAC 


4, EM IT 


01367 




00008 




07070 


IS7 


DAC 


8 < SEQUENCE 


01383 




0.0 OO 3 




07080 


I S8 


DAC 


3, SET 


01389 




00 005 




07090 


IS9 


DAC 


5 ♦ CLEAR 


01399 




00002 




07100 


I SIO 


DAC 


2»GO 


O1403 




00 021 




071 10 


ERRl 


DAC 


21. NO $1»S2* OR S3 CARD@t 


01445 




00 039 




07120 


ERR2 


DAC 


39 •OTHER THAN EMIT OR SEQ WITH *3 CQNTROL(at 


01523 




00023 




0714O 


ERR4 


DAC 


23 •UNDEFINED CONTROL CARD^, 


01569 




00037 




07180 


ERR8 


DAC 


37 •SEQUENCE FIELD NOT IN 2-10 COL RANGE(a, 


01643 




00018 




07190 


ERR9 


DAC 


18. SEQUENCE OVERFLOW(at 


01679 




00 041 




07210 


ERRl 1 


DAC 


41. UNMATCHED CODES OR LENGTHS IN REPRO CARD®. 


01761 




00041 




O7290 
08001 


ERR 
* 


DAC 


41. ERROR IN CONTROLS. CORRECT + PRESS START<», 
BEGIN PROGRAM OPERATION 


01 842 


33 


00932 


00000 


08010 


START 


CF 


EMPTY+2*51-3 


01854 


16 


01 884 


-0423 


08020 




TFM 


8A+6.CT1 • . 


01866 


16 


00653 


000-9 


08030 




TFM 


W0RK2.09. 10. 


01878 


16 


01878 


000-0 


08040 


8A 


TFM 


***00.10. 


01890 


1 1 


01 884 


-0002 


08050 




AM 


8A+6.2. . 


01902 


12 


00653 


000-1 


08060 




. SM 


WORK2.01.10. 


01914 


47 


01878 


01200 


08070 




BNZ 


8A 


'6 i 926 


26 


00 006 


004 16 


08080 




TF 


6.RST1+6 


01938 


16 


06252 


-6256 


08090 




TFM 


QUES1+6.QUES1 + 12. . 


01950 


16 


06276 


-628? 


08100 




TFM 


QUES2+6.QUES2+12. . 


01962 


16 


12216 


-6246 


081 10 




TFM 


0UES3+6.QUES1 . . 


01974 


16 


00631 


000-1 


08125 




TFM 


SQCTtO 1 • 10* 


1 986 


16 


12 139 


OOOMl 


08 1 30 




TFM 


E7A+1,41.10. 


01998 


16 


12151 


OOOMl 


08140 




TFM 


E7B+1 •41 • 10^ 


02010 


16 


02700 


-0441 


08142 




TFM 


17C+6.FCD.. 


02022 


16 


02712 


-0443 


08144 




TFM 


17D+6.FLNG.. 


02034 


16 


02736 


-0448 


08146 




TFM 


17E+6^FRT^ . 


02046 


16 


02844 


-5285 


08148 




TFM 


17F+6^SF^ • 


02058 


16 


02880 


-6295 


08150 




TFM 


18A+6»CLFRM-10. • 


02070 


16 


02892 


-6305 


08160 




TFM 


18B+6»CLFRM, . 


02082 


16 


02904 


-6300 


08170 




TFM 


18C+6«CLFRM-5» « 


O2094 


16 


03336 


-7289 


08180 




TFM 


21C+6»E4A^ • 


02106 


16 


03480 


-8251 


08190 




TFM 


30C+6^F5A-10« . 


021 18 


16 


03492 


-8261 


08200 




TFM 


30D+6.E5A.. 


02130 


16 


03504 


-8256 


09010 




TFM 


30E+6.E5A-5, . 


02142 


16 


03660 


-0994 


0902C 




TFM 


33A-»-6^CARD-l . . 


02154 


16 


03672 


-0995 


09030 




TFM 


33B+6«CARD« • 


02166 


16 


03696 


-9233 


09040 




TFM 


33C+6.E6A.. 


"02178 


16 


0376 i 


-0995 


09050 




TFM 


33C+1 1 .CARD. • 


02190 


16 


03768 


-9228 


09060 




TFM 


33D+6.E6A-5. • 4 o 
42F+6«SQHLD, , ^ ^ 


02202 


16 


04176 


-0629 


09065 




TFM 


022 1 4 


26 


0O629 


00663 


09066 




TF 


S0HLD^Z10». 


02226 


16 


04 356 


J0205 


09070 




TFM 


50C+6.E8A*. 


02238 


16 


04 368 


J0200 


09080 




TFM 


50D+6»E8A-5* • 


02250 


16 


04560 


Jl 177 


09090 




TFM 


52C+6.E9A. . 


02262 


16 


04572 


JU72 


09100 




TFM 


52D+6.E9A-5. « 


02274 


26 


01 153 


00991 


1 00 1 


CNTRL 


TF 


CARD+2*80-2 •EMPTY+2*80-2 • • 


02286 


37 


00995 


005O0 


1 0020 




RACD 


CARD 


02298 


24 


00997 


01321 


1 0030 




C 


CARD+2. ISl+2* . DETERMINE TYPE OF CONTROL 


02310 


46 


02562 


01200 


10040 




BE 


ONE 


02322 


24 


00997 


1 3 25 


10050 




C 


CARD+2 .152+2 


' 02334 


46 


02586 


01200 


1 0060 




BE 


TWO 


02346 


24 


00997 


01329 


1 0070 




C' 


CARD+2.IS3+2 


02358 


46 


02610 


012O0 


10080 




BE 


THREE 


02370 


24 


01011 


01347 


1 0090 




C 


CARD+16^ IS4+16 


02382 


46 


02634 


01200 


I 01 00 




BE 


REPRO 


02394 


24 


01 003 


01357 


10110 




C 


CARD+8.IS5+B 


02406 


46 


03390 


01200 


10120 




BE 


BLANK 


02418 


24 


01 001 


01365 


1 0130 




C 


CARD+6«IS6+6 


02430 


46 


03618 


01200 


10140 




BE 


EMIT 


02442 


24 


01 009 


01381 


1 015O 




C 


CARD+ 1 4 • I S7+ 1 4 


02454 


46 


03882 


01200 


10160 




BE 


SEQ 


02466 


24 


00999 


01387 


1 0170 




C 


CARD+4, IS8+4 


02478 


46 


04 266 


01200 


10180 




BE 


SETFL 


02490 


24 


01 003 


01397 


1O190 




C 


CARD+8.IS9+8 


02502 


46 


04470 


012O0 


1 0200 




BE 


CLRFL 


02514 


24 


00997 


01401 


11010 




C 


CARD+2, I SI 0+2 


02526 


46 


04674 


01200 


1 1020 




BE 


GO 


02538 


17 


12750 


-1523 


1 1 040 




BTM 


PR I NT • ERR4 • • 


02550 


49 


02274 


00000 


1 1050 




B 


CNTRL 


02562 


16 


00429 


000-1 


1 201 


ONE 


TFM 


CT4 •Ol « 10. 


02574 


49 


02274 


OOOOO 


12020 




B 


CNTRL 


02586 


16 


00429 


000-2 


12030 


TWO 


TFM 


CT4.02. 10. 


02598 


49 


02274 


OOOOO 


12040 




B 


CNTRL 


02610 


16 


00429 


000-3 


12060 


THREE 


TFM 


CT4.03.10. 


02622 


49 


02274 


OOOOO 


12070 




B 


cntrl 


02634 


17 


12360 


-0000 


1 7b 1 


REPRO 


BTM 


COLA... FROM/TO 


02646 


'49 


02670 


OOOOO 


17020 




B 


17B... PROCESS FROM CARD 


02658 


17 


12432 


-0000 


17030 


1 7A 


BTM 


COLR^.. 


02670 


14 


00635 


000-0 


17040 


1 7B 


CM 


CLONG.00,10. 


02682 


46 


03006 


01200 


17050 




BE 


19A 


02694 


26 


02694 


00633 


17100 


17C 


TF 


**.CCODE,. (P = FCD) 


02706 


26 


02706 


00635 


17110 


1 7D 


TF 


**.CL0NG.. (P = FLNG) 


02718 


17 


12294 


-0995 


1 7120 




BTM 


RIGHT. IN. 


02730 


26 


02730 


12293 


17130 


17E 


TF 


♦*.RIGHT-1.. (P = FRT) 


02742 


1 1 


02700 


-0009 


17140 




AM 


17C+6.9. • 


02754 


1 1 


02712 


-0009 


17150 




AM 


17D+6»9» • 


02766 




02736 


-0009 


1 7160 




AM 


17E+6.9. . 


02778 


1 1 


00431 


000-1 


1 7170 




AM 


CT5.01 . 10 


02790 


21 


00 439 


00635 


18010 




A 


CT9.CL0NG.. 


02802 


17 


12228 


-0995 


18020 




BTM 


LEFT. IN.. 4/ 
DUM4A+6.LEFT-1 . . * 


02814 


26' 00754 


12227 


1 flC?2 




TF 



02826 33 00750 OOOQO 1 B024 

02838 26 02638 00759 18026 

02644 -00 12 18028 

17 12?'^4 ~ll'=^7 18030 

02B74 2^) 02B74 OO'^Tn 18040 

02886 16 02886 000-0 18O50 

02898 26 02898 12293 18060 

I I 02880 -00 12 18070 

I I 02892 -0012 18080 

1 1 02904 -00 12 18090 

12 12293 
12 00635 000-1 

02970 47 02874 01200 

02982 14 0O651 00001 



02850 
02862. 



02910 
02922 
02934 
02946 
2958 



-0012 
-00 12 
-0002 18100 
18110 
1 8120 
18160 



02994 47 02658 01200 18170 

03OO6 17 12360 -OOOO 19010 19A 

03018 49 03042 00000 19020 

03030 17 12432 -0000 19030 

03042 14 00635 000-0 

03054 46 02274 01200 

03066 16 03125 -0441 

03078 16 03257 

03090 16 03281 

03102 16 03197 000 

031 14 24 00633 031 



-0443 
-0448 



198 

19040 19C 
19050 
19110 19D 
19120 
19130 
1 9 140 
20020 20A 



03126 46 03234 01200 20030 



11 03125 -O009 20050 

1 1 03257 -0009 20060 

11 03281 -0009 2007O 

11 03197 OOO-l 20080 

14 00431 -3186 20090 20B 



03138 
03150 
03162 
03174 
03186 

03198 46 03114 01300 20 100 
03210 17 12750 -1679 20110 20C 
03222 49 02274 00000 20120 
03234 11 00437 OOO-l 20140 20D 
03246 24 00635 03246 21010 21 A 



03258 47 03210 
03270 26 00771 



01200 21020 
03270 21040 21B 



03282 33 00767 00000 2 1050 

03294 17 12294 -1157 21070 

03306 26 00766 12293 21080 

03318 33 00762 00000 21090 

03330 26 03330 00771 21110 21 C 



-0012 21 120 
00001 21140 



03342 1 1 03336 

03354 14 00651 

03366 47 03030 01200 21150 

03378 49 02274 00000 21160 

03390 17 12360 -0000 30020 BLANK 

03402 49 03426 OOOOO 30030 

03414 17 12432 -0000 3004C 30A 

03426 14 00635 000-0 30O6O 308 

03438 46 02274 01200 30070 

03450 17 12294 -1157 30080 

03462 21 00433 00635 30090 

03474 26 03474 00773 30100 30C 

03486 16 03486 OOO-O 30110 30D 

03498 26 03498 12293 30120 30E 



03510 
03522 
03534 
03546 
03558 



11 03480 -00 12 30130 

11 03492 -00 12 30140 

11 03504 -0012 30150 

12 12293 -0002 30160 



12 00635 000-1 30170 
03570 47 03474 01200 30180 
03582 14 O0651 OOOOl 31160 
03594 46 02274 0120O 31170 
03606 49 03414 OOOOO 31180 
03618 26 01153 00991 33010 EMIT 
03630 37 00995 0O500 33020 
03642 16 00653 000-1 33030 
03654 32 03654 OOOOO 33040 33A 
03666 14 03666 OOO-O 33050 33B 
03678 46 03798 O120O 33060 
03690 26 03690 03690 33080 33C 
03702 11 03696 -0012 3309C 
03714 13 00653 00-02 33110 
03726 11 00099 -1155 33120 
03738 26 00778 00099 33130 
03750 33 00 774 OOOOO 33140 
03762 26 03762 00778 33150 33D 



03774 
03786 
03798 
03810 
03822 
03834 
3846 



1 1 03768 -0012 33160 

11 00435 000-1 33180 

11 03660 -0002 34020 34A 

0002 34030 

0002 34040 



03672 
03701 



1 1 

I 1 

I I 00653 000-4 
14 00653 OOOQl 



34050 
34060 
01200 34070 



34080 
41020 SEQ 



03858 47 03654 

03870 49 02274 OOOOO 

03882 43 03906 01018 

03894 49 03978 OOOOO 41030 

03906 43 03942 01020 41040 41A 

03918 25 00631 01019 41050 

03930 49 03978 OOOOO 41060 

03942 25 00631 01021 4 1070 41B 

03954 25 00630 01019 41080 

03966 32 00630 OOOOO 4 1090 

03978 17 12360 -0000 

03990 26 00653 00637 41 

04002 26 04 169 00639 411 

04014 14 00651 00001 
04026 
04038 



t 1 41C 
I 120 
140 410 
41 14P 



15 



46 04074 ^1200 41144 
17 12432 -0000 41150 



CF DUM4A+2 

17F TF **«DUM4A4-1 1 , ♦ 

AM 17F+6»12»« 

RTM RIGHT •OUT** 

ISA TF **,DUM6A+1** 

18B TFM ♦^^OO* 10« 

leC TF **,RIGHT-1*» 

AM 18A+6<12«* 

AM 18B+6*12*« 

AM 18C+6»12*» 

SM R1GHT-1*2»* 

SM CL0nG«01*10, 

BNZ 18A 

CM TEMP2.81«10* 

BNF 1 7A 

BTM COLA,,, 

B 19C 

BTM COLB 

CM CLONG,00,10 

RF CnTRL 

TFM 20A+11,FCD,, 

TFM 21 A+1 1 ,FLNG, ♦ 

TFM 21B+1 1 ,FRT, « 

TFM 20B+1 1,01*10, 

C CCODE,**,* 

BE 20D 

AM 20A+ 11,9,, 

AM 21 A+1 1 *9, » 

AM 21B+1 1 ,9, * 

AM 20B+1 1 *01 • 10* 

CM CT5***«* 

BNN 20A 

PTM PR I NT* ERR 11 

B CNTRL 

AM CT8*01*10 

C CLONG***,, 

BNE 20C 

TF DUM5A+11,** 

CF DUM5A+7 

BTM RIGHT, OUT 

TF DUM5A+6«RIGHT-1 

CF DUM5A+2 

TF *»,DUM5A+1 1,4 

AM 21C+6*12,, 

CM TEMP2*81,10, 

BNE 1 9B 

B CNTRL 

BTM COLA,,, BLANKS 

B 30B 

BTM COLB 

CM CLONG,00,10, 

BE CNTRL 

BTM RIGHT, OUT 

A CT6*CL0NG,, 

TF **,DUM6A+1,, 

TFM ♦*,00,10* 

TF **,RIGHT-1,, 

AM 30C+6*12** 

AM 30D+6«12** 

AM 30E+6*12** 

SM RIGHT-1*2** 

SM CLONG * O 1 ♦ 1 , 

BNZ 30C 

CM TEMP2*81*10 

BE CNTRL 

B 30A 

TF CARD+2»80-2*EMPTY+2*80-2, 
RACD CARD, * , 

TFM WORK2*0 1«10, 

SF ** ♦ , * 

CM **»00,10, 

BE 34A 
TF 

AM 33C+6*12»* 

MM WORK2«002*9, 

AM 00099, OUT-2, , 

TF DUM6A+6 400099 

CF DUM6A+2 

TF **,DUM6A+6** 

AM 330+6*12* 

AM CT7*01 « 10* 

AM 33A+6,2** 

AM 33B+6 * 2 * * 

AM 330+11,24* 

AM W0RK2*01*10, 

CM W0RK2*81*10, 

BNE 33A 

B CNTRL 

BD 4 1 A,CARD+2*1 3-3* * 

B 41C 

BO 41B,CARD+2*14-34 , 

TD S0CT*CARn+2*l 3-2* * 

P 41C 

SQCT * CARD+2* 1 4-2 
SOCT-1 ,CARD+2*-13-2 
SOCT-1 
COLA 

W0RK2 ,CLFT, , 
42E+1 1 ,CRT* 4 
Tc^YP? ,81,10*, 
.IE 



(P = CLFRM-10) 
(P = CLFRM > 
(P = CLFRri-5) 



PROCESS TO CARD 



(P = E4A> 



(P = E5A-10) 
< P = E5A ) 
<P = E5A-5) 



(P = CARD-1 ) 
(P = CARD) 



E6A, Q = CARD) 



(P ^ E6A-5) 



SEQUENCE CONTROL 



TD 
TD 
SF 
BTM 
TF 
TF 
CM 
BF 
RTM 



04050 


1 4 


00635 


OOO— 


41 160 




CM 


CLONGf 00* 10* 






04062 


47 


04002 


1 200 


41 170 




BNE 


41D 






04074 


26 


00 639 


04 1 69 


4 1 1 80 


4 IE 


TF 


CRT* 42E+1 1 * 4 






04086 


22 


04 1 69 


00653 


420 1 




S 


42E+ 1 1 ♦W0RK2 






04098 


46 


04 t 34 


1 1 00 


42030 




BH 


42B 






04 1 10 


1 7 


1 2750 


- 1569 


42050 


42A 


BTM 


PRINT*ERR8* * 






04 122 


49 


02274 


00000 


42060 




B 


CnTRL 






041 34 


1 4 


04 169 


000-9 


42070 


42B 


CM 


42E+1 1 * 09* 10* 






04 1 46 


46 


04 1 1 


1 1 00 


42080 




BH 


42A 






04 1 58 


1 2 


04 1 76 


-4 1 58 


421 00 


42E 


SM 


42F+6**** * 






041 70 


32 


04 170 


00000 


42 1 20 


42F 


SF 


**« ♦ * 




(P - SOHLD) 


04 182 


1 7 


1 2294 


-0995 


42 1 30 




BTM 


RIGHT* CARD* * 






04 1 94 


72 


1 229L 


0O629 


421 50 




TNS 


RIGHT-1 *S0HLD*6* 




04206 


26 


1 2 1 49 


00795 


43060 




TF 


E7A+1 1 ,DUM7A+1 1 


* . 




042 1 8 


26 


12161 


00807 


43070 




TF 


E7B+1 1 ,DUM7B+1 1 


* . 




04230 


17 


1 2294 


- 1 1 57 


43080 




BTM 


RIGHT* OUT* * 






04242 


26 


12 144 


1 2293 


43090 




TF 


E7A+6*RIGHT-1 * * 






04254 


49 


02274 


00000 


43100 




B 


CNTRL* * « 






04266 


! 7 


12360 


-0000 


50020 


SETFL 


BTM 


COLA, * * 


SET FLAG 




04278 


49 


04302 


00000 


50030 




B 


508 






04290 


1 7 


1 2432 


-0000 


50050 


50A 


BTM 


COLB* * ♦ 






04302 


1 4 


00635 


000—0 


50070 


5 OB 


CM 


CLONG*00* 10* 






043 1 4 


46 


02274 


1200 


50080 




BE 


CNTRL 






04326 


1 7 


1 2228 


- 1 1 57 


50090 




BTM 


LEFT* OUT* , 






04338 


21 


00425 


00635 


50100 




A 


CT2 *CLONG* * 






04350 


26 


04 350 


008 19 


50120 


50C 


TF 


♦**nuM8A+l 1 * * 




(P = E8A) 


04362 


26 


04362 


1 2227 


50130 


SOD 


TF 


**«LEFT-I • * 




<P « E8A-5) 


04374 


1 1 


04356 


-00 1 2 


50140 




AM 


50C+6 * 1 2* » 






04386 


1 1 


04368 


-00 1 2 


50150 




AM 


50D+6* 12** 






04398 


1 1 


1 2227 


-0002 


50 160 




AM 


LEFT-1 ♦2* * 






0441 


1 2 


00635 


000-1 


50170 




SM 


CL0NG*01 * 10* 






04422 


47 


04 350 


01200 


50 180 




BNZ 


50C 






04434 


1 4 


00651 


00001 


50200 




CM 


TEMP2*81 * 10* 






04446 


47 


04290 


1 200 


5021 




BNE 


50A 






04458 


49 


02274 


00000 


50220 




B 


CNTRL 






04470 


17 


1 2360 


-0000 


520 1 


CLRFL 


BTM 


COLA.** 


CLEAR FLAG 




04482 


49 


04506 


00000 


52020 




B 


52B 






04494 


1 7 


1 2432 


— 0000 


52030 


52A 


BTM 


COLB , * * 






04506 


1 4 


00635 


000-0 


52040 


52B 


CM 


CL0NG*00* 10* 






04518 


46 


02274 


1 200 


52050 




BE 


CNTRL 






04530 


1 7 


1 2228 


- 1 1 57 


52060 




BTM 


LEFT*OUT* * 






04542 


2 1 


00427 


00635 


52070 




A 


CT3*CL0NG* * 






04554 


26 


04554 


00831 


52080 


52C 


TF 


**«DUM9A+1 1 * * 




<P = E9A) 


04566 


26 


04566 


1 2227 


52 1 00 


52D 


TF 


***LEFT-1 * « 




(P « E9A-5) 


04578 


1 1 


04560 


-00 1 2 


521 1 




AM 


52C+6 « 12* « 






04590 


1 1 


04572 


-00 1 2 


52 1 20 




AM 


52D+6*12«* 






04602 


1 1 


1 2227 


-0002 


52 1 30 




AM 


LEFT-1 .2* * 






04614 


12 


00635 


000- 1 


52140 




SM 


CLONG* 1*10* 






04626 


47 


04 554 


01200 


52150 




BNZ 


52C 






04638 


14 


00651 


OOOQl 


52170 




CM 


TEMP2*81 * 10* 


1 7 




04650 


47 


04494 


1200 


52180 




BNE 


52A 




04662 


49 


02 274 


00000 


52 I 90 




B 


CNTRL 






04674 


1 4 


or *29 


000-3 


60020 


GO 


CM 


CT4*03*10* 






04686 


47 


318 


01200 


60030 




BNE 


60B 






04698 


1 4 


0( 425 


000—0 


60040 




CM 


CT2*00* 10* 


IF S3* ONLY EMIT 


+ SEQ ALLOWED 


0471 


47 


04 794 


01 200 


60050 




BNE 


60A 






04722 


1 4 


00427 


000-0 


60060 




CM 


CT3*00* 10* 






04734 


47 


04794 


1 200 


60070 




BNE 


60A 






04746 


1 4 


00431 


000-0 


60080 




CM 


CT5*00* 10* 






04758 


47 


04794 


1 200 


60090 




BNE 


60A 






04770 


1 4 


00433 


000-0 


601 00 




CM 


CT6*00* 10 






04782 


46 


04866 


1 200 


60 1 1 




BE 


61 A 






04794 


1 7 


1 2750 


- 1 445 


60120 


60A 


BTM 


PRINT.ERR2* * 






04806 


49 


04878 


00000 


60 1 30 




B 


61C 






0481 8 


1 4 


00429 


000-0 


60150 


60B 


CM 


CT4*00* 10* 






04830 


47 


04866 


01200 


60160 




BNE 


61 A 






04842 


1 7 


12750 


-1403 


60170 




BTM 


PR I NT* ERR 1 * * 


NO $1 ♦sa.SS CARD 




04854 


49 


0487B 


00000 


60180 




8 


61C 






04B66 


44 


04914 


00423 


61010 


61 A 


BNF 


61D* CTl * ♦ 






04878 


1 7 


1 2750 


- 1 761 


61 020 


6 1 C 


BTM 


PR I NT* ERR 






04890 


48 


00 000 


00000 


61 030 




H 








04902 


49 


1 842 


00000 


61 040 




8 


START 






04914 


14 


00429 


000-2 


61060 


61D 


CM 


CT4*02* 10* 


SET TRANSFERS FOR S2 + 


04926 


47 


04962 


1 200 


61 070 




BNE 


61E 






04938 


1 6 


06276 


-7266 


61 080 




TFM 


OUES2+6*NOTR* » 






04950 


49 


05010. 


00000 


61 090 




B 


61F 






04962 


1 4 


00429 


000-3 


61 100 


6 IE 


CM 


CT4*03* 10* 






04974 


47 


050 1 


1 200 


61110 




BNE 


61F 






04986 


1 6 


06252 


-7266 


61 120 




TFM 


QUES1+6*N0TR* ♦ 






04998 


1 6 


1 22 1 6 


J2 1 38 


611 30 




TFM 


QUES3+6*E7A* * 






0501 


1 3 


00431 


00-12 


61 150 


61F 


MM 


CT5* 12*9* 


INSERT 


BRANCHES 


05022 


1 1 


00099 


-5285 


61 1 60 




AM 


00099 *SF* • 






05034 


26 


0009R 


00687 


61 170 




TF 


00099 *BR2+1 1*6* 






05046 


1 3 


00439 


00- 1 2 


6 I 180 




MM 


CT9* 12*9* 






05058 


1 1 


00099 


-6305 


61 190 




AM 


00099 *CLFRM* * 






05070 


26 


00 09R 


00675 


6 1 200 




TF 


00099 * BR 1 + 1 1 * 6 • 






05082 


1 3 


00437 


00- 1 2 


61210 




MM 


CT8* 12*9* 






05094 


1 I 


00099 


—7289 


6 1 220 




AM 


O0099*E4A 






05 1 06 


26 


0009R 


00699 


61230 




TF 


00099 *BR4+1 1 .6* 






05 118 


1 3 


00433 


00- 1 2 


62010 




MM 


CT6* 12*9* 






05 1 30 


1 1 


00 099 


-8261 


62020 




AM 


O0099*E5A* « 






051 42 


26 


0009R 


007 1 1 


62030 




TF 


00099*BR5+1 1 .6* 






05 1 54 


1 3 


00435 


00-12 


62040 




MM 


CT7* 1 2*9* 






05 1 66 


1 1 


00099 


-9233 


62050 




AM 


00099 *E6A* * 






OS 1 78 


26 


0009R 


00723 


62060 




TF 


00099«8R6+1 1 *6* 






05 1 90 


1 3 


00425 


00-12 


62070 




MM 


CT2«.12*9* 






05202 


1 1 


00099 


J0205 


62080 




AM 


00099 *E8A« * 






052 1 4 


26 


0009R 


00735 


62090 




TF 


00099 *BR8+1 1.6* 






05226 


1 3 


00427 




62 1 00 






CT3* 12,9* 






05238 


1 1 


00099 


Jl 1 77 


621 10 




AM 


00099.E9A* * 






05250 


26 


0009R 


00747 


62120 




TF 


00099 *BR9+1 1*6* 


'+2*81-2* ♦ ^ 




05262 


26 


01 155 


00993 


62150 




TF 


IN+2»81-2«EMPTY 





05285 
06246 
06258 
06270 
06282 
06305 
07266 
07289 
08261 
09233 

I 0205 

II 177 
12138 
12150 
12162 
12174 
12186 
12198 
12210 
12226 
12228 
1 2240 
1 2252 
12264 
1 2276 
12292 
12294 
12306 
12318 
12330 
1 2342 
12358 
12360 
1 2372 
12384 
12396 
1 2408 
1 2420 
12432 
12444 
12456 
12468 
1 2480 
12492 
12504 
12516 
1 2528 
12540 
12552 
12564 
12576 
12588 
12600 
12612 
12624 
12636 
1 2648 
12660 
12672 
12684 
12696 
12708 
12720 
12732 
1 2748 
12750 
12762 
12774 
12786 
1 2798 
01842 



00012 
49 06246 
37 00995 
49 06270 
31 1156 
00012 
31 01156 
0001 2 
0001 2 
0001 2 
00012 
00012 

48 00000 

46 00000 

47 12198 
17 12750 
16 12163 
39 01 157 

49 12210 
00005 

13 00637 
21 00099 

12 00099 
26 12227 
42 00000 

00005 

13 00639 
21 00099 
12 00099 
26 12293 

42 OOOOO 
00005 

26 01 153 
37 00995 
16 00644 
16 00649 
16 00651 
41 OOOOO 
16 00633 
16 00637 
16 00639 
16 00635 

43 12516 
43 12516 
49 12648 
32 0064M 
14 00633 
47 12576 
26 00633 
26 00637 
24 00633 
47 12732 
Z( 00639 
3. 0064M 

I 00635 
49 12672 
14 00633 
47 12732 

I I 00644 
1 1 00649 
1 1 O0651 
14 00651 
47 12480 
42 OOOOO 

00005 
34 OOOOO 
39 1274R 
34 OOOOO 
32 00423 
42 OOOOO 



OOOOO 
00500 
OOOOO 
00994 

00832 



OOOOO 
OOOOO 
01400 
-1643 
000M9 
00400 
OOOOO 

00-02 
12227 
-0003 
00099 
OOOOO 

00-02 
12293 
-0002 
00099 
OOOOO 

00991 
00500 
-0994 
-0995 
OOO-l 
OOOOO 
000-0 
000-0 
000-0 
000-0 
0064M 
0064R 
OOOOO 
OOOOO 
000-0 
01200 
0O64R 
00651 
0064R 
01200 
O0651 
OOOOO 
000-1 
OOOOO 
000-0 
01200 
-0002 
-0002 
000-1 
OOOOO 
01 100 
OOOOO 

001 02 
001 00 
00102 
OOOOO 
OOOOO 



62160 
62180 
62190 
63010 
63020 
63030 
63060 
72020 
72040 
72060 
721 10 
72 130 
721 32 
72134 
72136 
72138 
72140 
72150 
72160 
96020 
96030 L 
96040 
96050 
96060 
96070 
96100 
961 1 \ 
96120 
96130 
96140 
96150 
9701 
97020 
97030 
97040 
97050 
97060 
97070 
97080 
97090 
97100 

97 no 

97130 
97140 
97150 
97160 
97170 
97180 
97190 
97200 
98020 
98030 
98040 
98050 
98060 
98070 
98090 
98100 
98120 
98130 
98140 
98160 
98170 
98190 
99020 
99030 
99040 
99050 
99060 
99070 
99110 



SF 

OUESl 



QUES2 

CLFRM 
NOTR 
E4A 
E5A 
E6A 
E8A 
E9A 
E7A 
E7B 
72A 



PUNCH 
QUES3 



DSR 
B 

RACD 

B 

TR 

DSB 

TR 

DSB 

DSB 

DSB 

DSB 

DSB 

H 

H 



12«81 ♦ ♦ 
**, , , 

IN 

■K-» « « « 

OUT-1 * IN-1 ♦ ♦ 
12*81 • • 
OUT-1 •EMPTY-1 
12*81 * * 
12*81 « « 
12*81 • ♦ 
12.81 * • 
12.81 ♦ • 



SET FLAGS FOR FROM/TO 
MODIFIED FOR »3 * (P = *+l2> 

MODIFIED FOR *2 (P = *+l2) 

CLEAR FROM FIELDS IN TO AREA 

REPRODUCE FROM/TO 

SET BLANK 

EMIT 

SET FLAGS 
CLEAR FLAGS 

SEQUENCE INFORMATION (OP = NOP) 
(OP = NOP) 



98G 
98H 



98J 
PRINT 



BNV 
BTM 
TFM 
WACD 
B 
DC 
MM 
A 

SM 
TF 
BB 
DC 
MM 
A 

SM 
TF 
BB 
DC 
TF 

RACD 
TFM 
TFM 
TFM 
NOP 
TFM 
TFM 
TFM 
TFM 
BD 
BD 
B 
SF 
CM 
BNE 
TF 
TF 
C 

BNE 
TF 
CF 
AM 
B 

CM 
BNE 
AM 
AM 
AM 
CM 
BNH 
BB 
DC 

RCTY 
WATY 
RCTY 

SF 
BB 

DEND 



PUNCH 

PRINT.ERR9* 4 
72A+1 .49. 1 0, 
OUT 
**, « . 
5 « OOOOO « « 
CLFT.002.9* 
00099.LEFT-1 . . 
00099 •00003. « 
LEFT- I ,00099* . 



MODIFIED FOR S3 (P ' OUESl) 

CALCULATE LEFTMOST LOCATION 

L0C+2*N-3 (N=COL IN CLFT ) 



5. OOOOO • « 
CRT. 002*9* 
00099*RIGHT-1 * . 
00099.00002* • 
RlGHT-1 •00099 



CALCULATE RIGHTMOST LOCATION 
L0C+2*N-2 (N=COL IN CRT) 



5.00000.. COLUMN SEARCH SUBROUTINE 
CARD+2*e0-2*EMPTY+2*80-2* . 
CARD . * ♦ 

TFMP5A. CARD-1 . « 
TEMP5B,CARD» * 
TEMP2.01.10* 

CCODE*00. 10, 
CLFT* 00. 10. 
CRT* 00* 10* « 
CLONG«00* 10* 
97B,TEMP5A. 1 1 * 
97B,TEMP5B. 1 1 * 
98G. * . 
TEMP5A, .6* 
CCODE.00.10. 
98F . , * 

CCODE . TEMP5B * 1 1 * 
CLFT.TEMP2. * 
CCODE .TEMP5B* 1 1 * 
9eJ*** 
CRT.TEMP2. * 
TEMP5A. *6. 
CLONG*01 • 10. 
98H 

CCODE* 00* 10* 
98 J* * * 

TEMP5A, 00002 * . 
TEMP5B. 00002* • 
TEMP2*0 1 « 10* 
TEMP2 *80. 10* 
97A 
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5*00000* • 
* ♦ • 

PR I NT- 1 . «6* 

CTl 
START 



BTM PRINT.ERRX** 

RETURN 
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COMPUTER 
TECHNOLOGY 



